inherited CompanyVAEDForm: TCompanyVAEDForm
  Left = 300
  Top = 164
  Caption = 'CompanyVAEDForm'
  ClientHeight = 374
  ClientWidth = 407
  OnShow = FormShow
  ExplicitWidth = 413
  ExplicitHeight = 406
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 8
    Top = 20
    Width = 48
    Height = 12
    Caption = #20844#21496#32534#21495
  end
  object Label2: TLabel [1]
    Left = 8
    Top = 44
    Width = 48
    Height = 12
    Caption = #20844#21496#21517#31216
  end
  object Label3: TLabel [2]
    Left = 216
    Top = 68
    Width = 48
    Height = 12
    Caption = #20844#21496#22320#22336
  end
  object Label4: TLabel [3]
    Left = 8
    Top = 116
    Width = 24
    Height = 12
    Caption = #30005#35805
  end
  object Label6: TLabel [4]
    Left = 8
    Top = 140
    Width = 24
    Height = 12
    Caption = #20256#30495
  end
  object Label7: TLabel [5]
    Left = 216
    Top = 20
    Width = 60
    Height = 12
    Caption = #24320#25143#34892#21517#31216
  end
  object Label8: TLabel [6]
    Left = 216
    Top = 44
    Width = 60
    Height = 12
    Caption = #24320#25143#34892#22320#22336
  end
  object Label9: TLabel [7]
    Left = 8
    Top = 68
    Width = 48
    Height = 12
    Caption = #25152#23646#22320#21306
  end
  object Label10: TLabel [8]
    Left = 216
    Top = 140
    Width = 48
    Height = 12
    Caption = #37038#25919#32534#30721
  end
  object Label11: TLabel [9]
    Left = 8
    Top = 164
    Width = 24
    Height = 12
    Caption = #20027#39029
  end
  object Label12: TLabel [10]
    Left = 8
    Top = 92
    Width = 48
    Height = 12
    Caption = #20027#33829#20135#21697
  end
  object Label5: TLabel [11]
    Left = 216
    Top = 164
    Width = 48
    Height = 12
    Caption = #20225#19994#32423#21035
  end
  object Label13: TLabel [12]
    Left = 8
    Top = 188
    Width = 24
    Height = 12
    Caption = #22791#27880
  end
  inherited ActionButton: TBitBtn
    Left = 247
    Top = 343
    TabOrder = 13
    ExplicitLeft = 247
    ExplicitTop = 343
  end
  inherited CancelButton: TBitBtn
    Left = 327
    Top = 343
    TabOrder = 14
    ExplicitLeft = 327
    ExplicitTop = 343
  end
  object IdEdit: TEdit
    Left = 64
    Top = 16
    Width = 121
    Height = 20
    TabOrder = 0
    Text = 'IdEdit'
  end
  object NameEdit: TEdit
    Left = 64
    Top = 40
    Width = 121
    Height = 20
    TabOrder = 1
    Text = 'NameEdit'
    OnExit = NameEditExit
  end
  object TelephoneEdit: TEdit
    Left = 64
    Top = 112
    Width = 121
    Height = 20
    TabOrder = 4
    Text = 'TelephoneEdit'
  end
  object FaxEdit: TEdit
    Left = 64
    Top = 136
    Width = 121
    Height = 20
    TabOrder = 5
    Text = 'FaxEdit'
  end
  object BankNameEdit: TEdit
    Left = 280
    Top = 16
    Width = 121
    Height = 20
    TabOrder = 7
    Text = 'BankNameEdit'
  end
  object BankAccountEdit: TEdit
    Left = 280
    Top = 40
    Width = 121
    Height = 20
    TabOrder = 8
    Text = 'BankAccountEdit'
  end
  object RegionEdit: TEdit
    Left = 64
    Top = 64
    Width = 121
    Height = 20
    TabOrder = 2
    Text = 'RegionEdit'
  end
  object PostcodeEdit: TEdit
    Left = 280
    Top = 136
    Width = 121
    Height = 20
    TabOrder = 10
    Text = 'PostcodeEdit'
  end
  object AddressMemo: TMemo
    Left = 280
    Top = 64
    Width = 121
    Height = 65
    Lines.Strings = (
      'AddressMemo')
    TabOrder = 9
    WantReturns = False
  end
  object BusinessProductEdit: TEdit
    Left = 64
    Top = 88
    Width = 121
    Height = 20
    TabOrder = 3
    Text = 'BusinessProductEdit'
  end
  object HomePageEdit: TEdit
    Left = 64
    Top = 160
    Width = 121
    Height = 20
    TabOrder = 6
    Text = 'HomePageEdit'
  end
  object TypeComboBox: TComboBox
    Left = 280
    Top = 160
    Width = 121
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 11
    Text = #21378#21830
    Items.Strings = (
      #21378#21830
      #20195#29702#21830)
  end
  object MemoEdit: TEdit
    Left = 64
    Top = 184
    Width = 337
    Height = 20
    TabOrder = 12
    Text = 'MemoEdit'
  end
  object ContactPanel: TPanel
    Left = 8
    Top = 216
    Width = 393
    Height = 121
    TabOrder = 15
    object ContactDBGrid: TDBGrid
      Left = 1
      Top = 30
      Width = 391
      Height = 90
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = ContactDBGridDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'contact.Name'
          Title.Caption = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Post'
          Title.Caption = #32844#21153
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Telephone1'
          Title.Caption = #30452#32447#30005#35805
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Telephone2'
          Title.Caption = #25163#26426
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMail'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MSN'
          Width = 122
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'QQ'
          Visible = True
        end>
    end
    object ToolBar1: TToolBar
      Left = 1
      Top = 1
      Width = 391
      Height = 29
      Caption = 'ToolBar1'
      Images = ShareDataModule.ShareImageList
      TabOrder = 1
      object AddToolButton: TToolButton
        Left = 0
        Top = 0
        Action = AddContactInfoAction
      end
      object EditToolButton: TToolButton
        Left = 23
        Top = 0
        Action = EditContactInfoAction
      end
      object DeleteToolButton: TToolButton
        Left = 46
        Top = 0
        Action = DeleteContactInfoAction
      end
      object ToolButton2: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 77
        Top = 0
        Action = ViewContactInfoAction
      end
    end
  end
  object ContactQuery: TADOQuery
    Connection = ShareDataModule.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select company.name, contact.* from contact '
      'inner join company on (company.companyid = contact.companyid)')
    Left = 144
    Top = 280
  end
  object ActionList1: TActionList
    Images = ShareDataModule.ShareImageList
    Left = 153
    Top = 217
    object AddContactInfoAction: TAction
      Category = 'ContactMgr'
      Caption = #22686#21152#32852#31995#20154#36164#26009
      Hint = #22686#21152#32852#31995#20154#36164#26009
      ImageIndex = 0
      OnExecute = AddContactInfoActionExecute
    end
    object EditContactInfoAction: TAction
      Category = 'ContactMgr'
      Caption = #20462#25913#32852#31995#20154#36164#26009
      Hint = #20462#25913#32852#31995#20154#36164#26009
      ImageIndex = 1
      OnExecute = EditContactInfoActionExecute
    end
    object DeleteContactInfoAction: TAction
      Category = 'ContactMgr'
      Caption = #21024#38500#32852#31995#20154#36164#26009
      Hint = #21024#38500#32852#31995#20154#36164#26009
      ImageIndex = 2
      OnExecute = DeleteContactInfoActionExecute
    end
    object ViewContactInfoAction: TAction
      Category = 'ContactMgr'
      Caption = #26597#30475#32852#31995#20154#36164#26009
      Hint = #26597#30475#32852#31995#20154#36164#26009
      ImageIndex = 5
      OnExecute = ViewContactInfoActionExecute
    end
  end
  object DataSource1: TDataSource
    DataSet = ContactQuery
    Left = 112
    Top = 280
  end
end
